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Jupiter II Boot Pragrai for SDOS 
RAM h EQU'S 



OOOi 
0001 
0000 
0000 



0001 
FFfiO 
FFfil 
FFA2 
FFfl3 
FFA4 
FFft5 
FFA6 
FFA7 

OOSO 
0100 
OOIA 



b 
7 

e 

9 
10 

u 

12 
13 
14 
15 
16 
17 
IB 
19 
20 
21 
22 
23 
24 
25 
26: 
27 



I 
i 
} 

t 
t 

M6800 
H6801 
H6809 



NAHE S30S BOOT 

BOOT. SYS prograia for SDOS 1.0 or SDOS 1.1 6800/6809 

Operates with Jupiter II 6800 and Persci disk drive 

Boots froffi IBH format disk 

MRNING: THIS BOOT BQES NOT WORK IF OVERLAYED BY LOADED RECORDS! 



IFUND 

ESU 

EQU 

EBU 

FIN 



«6800 
1 





ASSURE 6800 



PERSCI EQU 1 
FD1771DISK EQU $FFAO 
FD1771PIAMNE EQU $FFA1 
FD1771D!1APAGE EBU $FFA2 
FD1771DRVSEL EQU IFFA3 
FDi771CHDSTS E8U $FFA4 
FDI771CURTRK EQU $FFA5 
FD177iSECT0R EQU iFFAa 
FD17?lNEgTRi( EBU $FFA7 



BASE OF 1771 DHft DISK REGISTERS 



NBPS EQU 
SECTOROQFFSET 
NSPT EBU 
t 



128 
E8U 
26 



NUHBER OF BYTES PER SECTOR 
$100 



HfiL/i800 1,3F: 


0000 SDDS BOOT 


dupi 


ter II Boot Prograi for SDQS 


01/16/83 12:011 


i39| Page 2;- Forsi 1 


Rm «! EBU'S 




jupiterboot.asii 


1 








0011 


29; BOOT:NSPC 


E5U 


$11 




OOlib 


30: BOQT:«APALG 


EQU 


$16 




0040 


31: BOOTsSIZE 


EOU 


$40 




0000 


32: LOAD:T¥PEO 


ESU 







0000- 


33: IF 


H6B09 






tst 


34: L0AS;TYPE1 
35: ELSE 


EQU 
(H6800) 


2 




0001 


36: L0AI):TYPE1 
37: FIS 


EQU 


1 




0002 


38: L0AD:TVPE2 


EQU 


2 




0003 


39: L0AD:T¥PE3 


EQU 


3 




FFFF 


40; H 


\(ii6809 






m 


41: 0KRT3 ESU 


$0C39 






m 


42: ERRORRTS 
43: Fin 
44: 


EQU 


I0D39 




0000 


45: QS8 









0000 0080 


46: IBHSECTOR RUB 
47: 


NBPS 




HHERE BOOT F 


0080 


48: QRS 
49: 


$80 




SO ffi DOS'T 




50: i STORAGE FOR DISK READ SUBROUTINE 




0080 0002 


51: READTAR6ET RIfB 

52: 

53: 1 OTHER STORAGE 


2 




MHERE TO REA 


0082 0002 


54: TEilPX RHB 


2 






0084 0002 


55: CNT RHB 


2 






0084 0002 


56: BEST RHB 


2 






0088 0002 


57: SOURCE RtIB 


2 






008A 0002 


58: SECTOR P;HB 


2 






OOBC 0002 


59: COUNT RMB 


2 






008E 0002 


60: LOADADBRESS 


RHB 


2 




0090 0002 


61: STARTAD R«B 








0092 0002 


62; DISKBUFFERPOINTER 


RHB 2 




0094 0001 


63: LSN RHB 


1 






0095 0001 


64; TRACK RHB 


1 


FUNNY FOR READNEXTLSN 


0096 OOift 


65: LSNTOPSNHAP 


RUB 


NSPT 




OOBO 


66; LSNTOPSNHAPENS 


ESU 


i 




OOBO 0001 


67: KiHODSSPT 


RHB 


1 




OOBl 0001 


68: K2H0DNSPT 


RRB 


i 




00B2 0001 


69: K4H0DNSPT 


RHB 


1 




00B3 0001 


70: KBSODNSPT 


RHB 


1 




O0B4 0001 


71: Ki6HQDNSFT 


RHB 


1 




00B5 0001 


72: K32HQ1}NSPT 
73: 


RHB 


1 




00B6 0028 


74: RSB 


40 


STACK SPACE 




OODE 0001 


75; STACKBASE 

76: 

77: ORG 


RHB 


1 




OFOO 


$F00 






OFOO OOBO 


78: BISKSUFFER 


RHB 


NBPS 




0F80 


79; DISKBUFFEREHD 
80: 


ESli 


t 




1000 


81: 0R8 


♦ 1000 






1000. 


82: TRACKBUF 


ESU 


t 




1000 ODOO 


83: . RHB 


NBPSINSPT 





!1AL/6B0O 1.3F 
01/16/83 12:01: 
jupitsrboot.asiB 
0100 



lOOO SDOS BOOT 
39j Page 3; Fom 1 



Jupiter II Boot Prograa ior 
RAH h EQU'S 



OiOO 8E00DE 
0103 660117 
0106 CE0180 

0109 8D35 
OlOB 2073 

0140 

0140 

0140 4C 

0141 



0141 43 

0142 B7FFft6 
0145 8677 

0147 
0147 7FFFft2 
014A B7FFfi4 

OHS 
014D F6FFA1 

0150 2ftFB 
0152 F6FFA4 
0155 F5FFA3 

0158 53 

0159 C59F 
015B 26EA 

015D 

015E 
01 SB 9600 

0160 
015F D601 

0161 43 

0162 53 

0163 A700 
0165 E70i 
0167 08 
016S 08 
0169 7C0i5E 
016C 7C015E 
016F 7C0160 
0172 7C0160 
0175 2AE6 
0177 7F0i5£ 
017A C601 
017C F70160 
017F 39 



85 
86 
87 
88 
89 
90 
91 
92 
93 
94 

95: 

96 
97 
9B 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
Hi 
112 
113 
114 

115: 

116 

117; 

118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 



* 

t 
BOOT 



ORS *tOO 

Assert: DP=0, CC=$FF when control is passed here by boot roffi! 

LDS SSTACKBASE 

LDAA BOOT:HAPALfi+SECTDROOFFSET+l 

m mm 

BSR READIBHiJITHINTRACK 

BRA HAKEHAP 



ORB *140 
READIBtWITHINTRACK ; READ LOGICAL SECTOR 0..NSPT-1 8ITHIN TRACK 

INCA CONVERT LOGICAL TO IBH SECTOR NUMBERING 

READWITHINTRACK ; READS PHYSICAL SECTOR SPECIFIED BY (A) 
; IX) POINTS TO DESIRED TARGET BUFFER 
j ASSERT: HEADS ON PROPER TRACK, FDi771DRVSEL INiTZD FOR DRIVE AND "READ" 

COHA REHEMBER, 1771 IS INVERTED... 

STAA FD177iSECT0R TELL 1771 MHAT SECTOR TO READ 

LDAA t*FF-/.10001000 SET "READ" COHHAND (h/o headloafi) 
READMITHINTRACKA8AIN ; LOOP HERE TO RE-READ SECTOR 

CLR FD1771DNAPAGE TELL 1771 BHERE TO READ INTO 

STAA FD1771CHDSTS TELL 1771 NHAT TO DO 
5 ALKAYS READ INTO PAGE ZERO! 
REASMITHINTRACKSAITDONE ; mil FOR TRANSFER COHPLETE 

LDAB FD1771PIAD0NE DONE YET ? 

BPL READSITHINTRACKklAITDDNE'B/ NO 

LDAB FD177iCHDSTS BET 1771 READ STATUS 

BITS FDI771DRVSEL ACK PIA DONE BIT 

COHB . CONVERT TO "TRUE" LOGIC 

BITB #7.10011111 PROPER COHPLETION ? 

BNE READ^ITHINTRACKASAIN B/ NO, DO THE READ AGAIN i 
i am COPY SECTOR FROH BUFFER TO TARGET, C0HPLEMENTIN6 MILE COPYINSi 
READKITHINTRACKCOPYLQOP ; COPY BYTES FROH DHA BUFFER TO TARGET, COHPLEHENTING! 



IBHSECTORPTRl EQU t+1 

LDAA IBRSECTOR 

IBHSECT0RPTR2 EQU 1+1 

LDAB IBHSECTOR+l 



COHA 




COHB 




STAA 


0,X 


STAB 


!,]( 


INX 




im 




INC 


IBHSECTORPTRl 


INC 


IBHSECTORPTRl 


INC 


IBHSECT0RPTR2 


INC 


IBHSECT0RPTR2 


BPL 


READ^THINTRACKCQPYLOOP 


CLR 


IBHSECTORPTRl 


LDAB 


' 11 


STAB 


IBHSECT0RPTR2 


RTS 





THIS IB USLY BUT FAST AND SHALL. 
SET 2 BYTES 



CDHPLEHENT BYTES ^STUPID DESIGNER!) 



muhmo 1.3F! 


0180 


SDOS BOOT 


Jupiter II Boat Prograai for SDQS 


01/16/83 12!0l!39| Page 4; 


Far* 1 


RAM i ESU'S 


iupiterfaoot.asffl 








0180 4F 


138 


HAKEHAP CLRA 




0181 BOOil? 


139: 




3UBA 


B00T:f1ftPALG+SECTDR00FFSET+l 


0184 CEOO% 


140 




m 


SLSNTQPSNHAP 


0187 DFa2 


141: 




STX 


TEKPX 


0189 BB0il7 


142 


WAPl 


ADDA 


BOOTjHAPALS+SECTDROOFFSET+I 


018C 801A 


143: 


t1AP2 


3U6A 


tt«SPT 


018E 24FC 


144 




BCC 


HAP2 


0190 8Blft 


145: 




ADDA 


#NSPT 


0192 CE0095 


146 




LDX 


ILSNTOPSNHAP-1 


0195 08 


147: 


i1AP3 


im 




0196 9C82 


148 




m 


TEMPX 


0198 2707 


149: 




BEQ 


HAP4 


019A AiOO 


150 




CHPA 


0,X 


019C 26F7 


151 




BNE 


MAPS 


019E 4C 


152 




INCA 




019F 20EB 


153 




BRA 


HAP2 


OlAl ft700 


154 


I1AP4 


STAA 


0,X 


01 A3 03 


155 




INK 




0Ift4 0F82 


156 




STX 


TEMPX 


OlAi 8C00B0 


15? 




CPX 


SLSHTOPSNHAPEHD 


01A9 26I1E 


158 
159 


J 


BKE 


HAPl 




160 


t 


READ IN REST OF BOOT 




161 


: { 






OlAB 9i98 


162 




LDAA 


LSNT0PSNI1AP+2 


OlAD CE0200 


163 




LDX 


iSECT0R00FFSET+2«NBPS 


OIBO 808E 


164 




BSR 


READIBHriTHINTRACK 


01B2 9699 


165 




LDAA 


LS«T0PSSKAP+3 


01B4 CE0280 


166 




LDX 


»SECTOR0OFFSET+3*N8PS 


01B7 8D87 


167 




BSR 


READiBMaiTHINTRACK 


01B9 969A 


168 




LDAft 


LSNTQPS11HAP+4 


OIBB CE0300 


169 




LDX 


tSECT0R00FFSET+4J!NBPS 


018E 8D80 


170 




BSR 


READIBiiyiTHINTRACK 


OICO 9i9B , 


171 




LDAA 


LSNTOPSNHAP+5 


01C2 CE0380 


172 




LDX 


ftSECTOR0OFFShT*5»NBPS 


01C5 BD0i40 


173 




JSR 


READIBRWITHINTRACit; 


01C8 7E02C3 


174 




m? 


BUILDSPIRAL 



11AL/6800 i.3F! 01C8 SDOS BOOT 
Ol/ii/83 i2!0l!395 Page 5; Fanii ! 
jupiterboQl.asiB 

17i 

177 

178 

179 

180 

IBi 

182 

183 

184 

185 

18& 

187 

188 

189; 

190 

191; 

192 
193 
194 
195 
19i 

197; 

198 
199 
200 
201 
202 

203; 

204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 

219; 

220 



OICB 
OICB DF86 
OICD 9694 
OICF BD02B9 
01D2 8B96 
OiD4 9783 
OlM 7F0082 
01D9 D795 
OlDB DE82 
OlM 4F 
OlDE 57 
OlDF 2402 
OlEl 9BB0 
01E3 57 
01E4 2402 
01E6 9BB1 
01E8 57 
01E9 2402 
OlEB 9BB2 
OlED 57 
OlEE 2402 
OlFO 9BB3 
01F2 57 
01F3 2402 
01F5 9BB4 
01F7 57 
01F8 2402 
01F6 9BB5 
OlFC ftBOO 
OlFE Be02B9 

0201 36 

0202 9694 
0204 7C0094 
0207 BD02B9 
020A 4D 
020B 2635 
020D 9695 
020F 43 
0210 B7FFft7 
0213 86E3 
0215 B7FFA4 

0218 
0218 B6FFftl 
021B 2AFB 
02iS B6FFft4 
0220 B5FFA3 

0223 43 

0224 8599 
0226 26FE 



022B 8601 



t 
t 
t 
READNEKTLSN 

m 

LDAA 

JSR 

ADDA 

STAA 

CLR 

STAB 

m 

CLRA 

ASRB 

BCC 

ADDA 

ftSRB 

BCC 

ADDA 

ASRB 

BCC 

ADDA 

ASRB 

BCC 

ADDA 

ASRB 

BCC 

ADDA 

ASRB 

BCC 



KMAPi 



KHAP2 



KfiAP3 



KHAP4 



Km?5 



mm 



Jupiter II Boot Prograi for SDOS 
RAH & EQU'S 



READNEKTLSN ~ INTO HEHORY AT (X) ACCORDING TO HAP AL80RITHH 



DEST REHEHBER WHERE TO READ 

LSN BET DESIRED LSN 

HbDNSPTA 

#LSNT0PSNHAP 

TEHPX+l 

TEHPX 

TRACK SAVE TAR8ET TRACK NUMBER 

TEHPX PERFORH HAPPING WITHIN TRACK 



KHAPl 
KIHODNSPT 

KHAP2 ■ 
K2H0BNSPT 

KHAP3 
K4HQDNSPT 

KHAP4 
K8H0DNSPT 

KHAP5 
K16H0DNSPT 

KHAP6 
K32i18DNSPT 

O5X 

h'odnspta 

LSN 

LSN FOR NEXT TIHE... 

HODNSPTA 

START OF NEa TRACK??? 
READFROHBUFFERPOQL 8/ NO 
TRACK GET DESIRED TRACK NUH8ER 

REHEHBER, 1771 REGISTERS ARE INVERTED 
■FD177tNEHTRK 

#(\2000iliOO)lc$FF SEEK TRACK 
FD177iCHDSTS 



i^Ar 



222 
223 
224 1 
225: 
226: 
227! 
228 s 
229: 



ADDA 
JSR 
PSHA 
LDAA 
INC 
JSR 
TSTA 
BNE 
LDAA 
COHA 
STAA 
LDAfi 
STAA 
SEEKDOSE 
LDAA 
BPL 
LDAA 
BITA 
CQHA 
BITA 
BNE 

LDX 

LDAfi 



FB1771PIAD0NE 

KAITSEEKDONE 
FD1771CHDSTS 
FD1771DRVSEL 

«10011001 
i 

#TRACKBUF 



SET RESULTS OF OPERATION 
ftCK PI A DONE BIT 
CONVERT TO TRUE STATUS 
SEEK FAILURE ? 
B/ YES.... (DIE) 

READ A WHOLE TRACK, PLEASE... 

READ ODD NUHBERES SECTORS, START AT 1 



MAL/6800 1.3Fi 022D SDOS BOOT 
01/16/83 12!01:39i Page 6; Form 
jupiterboot.asin 



1 



022D 978A 
022F 8D2B 
0231 8D28 
0233 8D2A 

0235 CE1080 
0238 8602 
023A 978A 
023C 8D1B 
023E SBIB 
0240 8D1D 

0242 

0242 32 

0243 578A 
0245 8610 ' 
0247 C600 

0249 7A008A 
024C 2B2D 
024E CB80 

0250 8900 
0252 20F5 

0254 52454144 

0259 
0259 8D00 

025B 
025B 3D00 

025D 
025D 8D00 

025F 
025F 968A 
0261 BBOUl 
0264 DF82 
0266 9682 
0268 D683 
026A CB80 
026C 8900 
026E 9782 
0270 D783 
0272 DE82 

0274 7C008A 
0277 7C00aH 
027A 39 

027B 
027B 9788 

0275 D789 
027F 8620 
0281 9784 

0283 

0283 DESe 
0285 A600 



23h . 

232: 

233! 

234: 

235: 

236: 

237: 

238 1 

239: 

240: 

241: 

242: 

243: 

244: 

245: 

246: 

247: 

248: 

249; 

250: 

251: 

252: 

253: 

254: 

255: 

256: 

257: 

258: 

259: 

260: 

261: 

262: 

263: 

264: 

265: 

266: 

267: 

268: 

269; 

270: 

271: 

272: 

273: 

274: 

275: 

276: 

277: 

278: 

279: 

280: 

281: 

282: 



285 



STAA 
BSR 
BSR 
BSR 

LDX 

LDAA 

STAA 

BSR 

BSR 

BSR 



Jupiter II Boot Prograt for SDOS 
RAH & ESU'S 

SECTOR 

READ8SECT0RSEVERVOTHER 
READ4SECTDRSEVERV0THER 
REAEISECTOREVERYOTHER 



#TRACKBUF+MBPS 

#2 

SECTOR 

REABSSECTORSEVERYOIHER 

REAB4SECT0RSEVERY0THER 

READISECTOREVERYOTHER 



aHERE TO READ 1ST EVEN SECTOR, 

READ EVES NUMBERED SECTORS, START AT 2 



READFROtlBUFFERPODL 

PULA 

STAA 

LDAA 

LDAB 
SETAD SEC 

B«I 

ADDS 

ADCA 

BRA 



SECTOR 
#TRACKBUF/256 

ftTRACKBOFIIFF 

SECTOR COHPUTE DISPLACEHENT INTO TRACK BUFFER 

COPYBYTES 

»NBPS?!$FF 

.SNBPS/256 

BETAD 



FCC "READ8" MARKER SO IRA CAN PLANT BKPT 
READ8SECTQRSEVERY0THER,! READ 8 SECTORS, SKIPPINS ONE PHYSICAL SECTOR BETBEEN 

BSR READ4SECT0RSEVERY0THER 
READ4SECT0RSEVERYQTHER \ READ 4 SECTORS, SKIPPING ONE PHYSICAL SECTOR BETWEEN 

BSR READ2SECT0RSEVERY0THER 
REAB2SECT0RSEVERY0THER : READ 2 SECTORS, SKIPPING ONE PHYSICAL SECTOR BETWEEN 

BSR READISECTOREVERYOTHER 



READISECTOREVERYOTHER : READ 1 SECTOR, 



LDAA 

JSR 

STJ( 

LDAA 

LDAB 

ADDS 

ADCA 

STAA 

STAB 

LDX 

INC 

INC 

RTS 

COPYBYTES 

STAA 
STAB 
LDAA 
STAA 



SECTOR 

READBITHINTRACK 

TEHPX 

TEHPX 

TEMPS+i 

#NBPSI($FF 

INBPS/256 

TEHPX 

TE!1P)i+l 

TEHPX 

SECTOR 

SECTOR 



THEN SKIP NEXT SECTOR 

GET DESIRES SECTOR 

ISSUE THE READ RESUEST 

ADVANCE POINTER TO SECTOR BUFFER 



ADVANCE SECTOR NUH8ER DESIRED 



SOURCE 

SOURCE+1 

INBPS/4 SINCE EACH ITERATION COPIES 4 BYTES 

CNT 



FCOPY ; IIIIHABIC 25 US/BYTE COPY ROUTINEt^t 
till THIS ROUTINE COULD BE SPED UP FOR 68091 , 

LDX SOURCE 

LDAA 0,X 



HSL/6800 1.3F: 


0287 


SBOS BOOT 


Jupiter 11 Boot PrograiR for SDQS 
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RAH & EBU'S 


jupiterboot.asffl 






0287 E601 


286: 


i.DA3 


1,1 


0289 EE02 


287 


LDX 


2,X 


028B DF82 


288! 


SIX 


TEHPX 


023D DE84 


289 


LDK 


BEST 


028F A700 


290: 


STAA 


0,X 


0291 E701 


291 


STAB 


1,!( 


0293 9i82 


292: 


LBAA 


TEHPX 


0295 D683 


293 


LDAB 


TEI1PX+1 


0297 A702 


294: 


STAA 


2,X . 


0299 E703 


295 


STAB 


3,X 


029B 9688 


296. 


LBAA 


SOURCE N0« ADD 4 TO SOURCE St BEST 


029B D689 


297 


LDAB 


SOURCE+1 


029F CB04 


298 


ADDS 


#4 


02Ai 8900 


299 


ADCA 


iO 


02A3 9788 


300 


STAA 


SOURCE 


02A5 D789 


301 


! STAB 


SOURCE+1 


02A7 9686 


302 


LBAA 


DEST 


02A9 D687 


303 


! LDAB 


BEST+i 


02ftB CB04 


304 


ADDB 


P 


02AD 8900 


305 


t ADCA 


»0 


02AF 9786 


306 


STAA 


DEST 


02B1 D787 


307 


! STAB 


DEST+1 


0283 7A0084 


308 


BEC 


CNT 


02B6 26C8 


309 
310 


! BNE 


FCOPY tm END OF FAST COPV itU 


02B8 39 


311 


RTS 


END OF SECTOR TRANSFER 



HfiL/6800 1.3F! 


02B8 SDQS 


BOOT 


Jupiter 11 1 


loot Prograffi for 3D0S 


01/16/83 12:01 


:39; Page 8; 


Form I 


RAM i EGU'S 




jupiterboat.asffl 










313: i 










314: 1 


tlQDNSPTA: 






315: t 




B:=A/NSPT 






3ii: i 




A:=A HOD NSFT 






317: i 








02B9 5F 


31B: HODNSPTA 


CLRB 


SET QUOTIENT- TO ZERO 


02BA 5C 


319: HOBNSPTAL 


INCB 


BUHP GUDTIENT 


02eB BOIA 


320: 


SU6A 


#NSPT 




02BD 24FB 


321: 


BCC 


«ODNSPTAL 




02BF 881A 


322: 


ADDA 


SNSPT 




02C1 5A 


323: 


BECB 






02C2 39 


324: 


RTS 







HftL/6800 i.3F; 


02C2 


BDOS BOOT 


Jupiter II Boot Program for SDOS 


Ol/li/83 12:0i!39i i 


'age 9; 


Farm 1 


RAH k EQU'S 


jupiterboot.asji 










32i! 


* 








327 


* 


BUILDSPIRAL-BENERftTE SPIRALLINS CDKSTANSTS 




328 


* 






02C3 BiOilA 


329: 


BUILDSPIRAL 


LDAA BOOTiHAPALB+SECTOROOFFSET 


02C6 8DF1 


330 




BSR 


HODNSPTA 


02C8 97B0 


331. 




STAA 


KIHQDNSPT 


02CA 48 


332 




ASLA 




02CB 8DEC 


333. 




BSR 


HOBNSPTA 


02CD 97B1 


334 




STAA 


K2H0DWSPT 


02CF 48 


335 




ftSLA 




02D0 8DE? 


336 




BSR 


HOGNSPTA 


02D2 97B2 


337 




STAA 


K4«QDNSPT 


02D4 48 


338 




ASLA 




02D5 8DE2 


339 




BSR 


HODNSPTA 


02D7 97B3 


340 




STAA 


KBtiODNSPT 


02S9 48 


341 




ASLA 




02&A 8&DD 


342 




BSR 


HODNSPTA 


02DC 97B4 


343 




STAA 


KiiHODMSPT 


02DE 48 


344 




ASLA 




02DF 8DS8 


345 




BSR 


HODNSPTA 


02E! 97B5 


346 




STAA 


K32MQDNSPT 



HAL/iaeO I.3F! 


02E3 


SDOS BOOT 


Jupiter 11 Boot Program for SDOS 


Ol/li/83 1250i!39| Page 10; 


Form 1 


COHHON ROUTINES 


jupiterbool.asflt 








02E3 7F0.094 


348: 


LOAD 


CLR 


L3N FAKE OUT READNEXTSECTOR TO START THINGS OFF 


02E6 CEOFOO 


349: 




LDX 


#DISKBUFFER 


02E9 BDOICB 


350: 




m 


READNEXTLSK AS GOOD A PLACE AS ANY 


02EC B40111 


351: 




LDAA 


BQOT;NSPC+SECTOROOFFSET 


02EF 9794 


352: 




STAA 


LSN 


02F1 CE0F80 


353: 




LDX 


#DISKBUFFEREND 


02F4 DF92 


354; 




STK 


DISKBUFFERPOINTER 


02F6 BD038B 


355: 




■JSR 


GETBYTE 


02F9 BiOl 


35i: 




CHPA 


itLOftD:TYPEl 


02FB 2iFE 


357: 
358: 


t 


BKE 


t 




359: 


t ' 


6ET TYPE l-STARTADBRESa 




3i0: 


i 






02FD BD03A1 


3M: 




JSR 


GETMRD 


0300 9790 


362: 




STAA 


STARTAD 


0302 S791 


363: 




STAB 


STARTAD+1 


0304 BD03A1 


364: 




JSR 


GETWDRD SEE IF CDHPLEhENT CHECKS! 


0307 OC 


365: 




SEC 




0308 E99I 


366: 




ABCB 


STARTAD^ 


030ft 26FE 


367: 




BNE 


i 


030C 9990 


368: 




ABCA 


STARTAD 


030E 26FE 


369: 




BNE 


* B/ COtlPLEHENT FAILURE 


0310 2002 


370: 
371: 




BRA 


LDADNEXT 


0312 


372: 


L0ftDTYPE2 




0312 8B2A 


373: 




BSR 


L0ftD2AND3 


0314 


374: 


LDADNEXT 




0314 BDOSBB 


375: 




JSR 


GETBYTE 


0317 8103 


376: 




CHPA 


ILQAD:TYPE3 


0319 271S 


377: 




BEQ 


LDADTYPE3 


031B 8102 


378: 




CHPA 


#L0AD:TYPE2 


031D 27F3 


379: 




BEG 


L0ASTYPE2 


031F 8100 


380: 




CHPA 


ILOADsTYPEO 


0321 2^FE 


381: 
382: 


t 


BNE 


t BAD RECORD TYPE 




383: 


t 


SKIP BYTES 




384: 


t 






0323 BD03A1 


385: 




JSR 


Biimm 


0326 978C 


386; 




STAA 


COUNT 


0328 D7eD 


387: 




STAB 


COUNTti 


032fi 1E8C 


388: 




LSX 


COUNT 


032C 


389: 


LQASTYPEO 




032C DF8C 


390: 




STK 


COUNT 


032E 27E4 


391: 




BEa 


LOADNEXT DONE! 


0330 BD038B 


392: 




JSR 


GETBYTE 


0333 Bt8C 


393: 




LDX 


COUNT 


0335 09 


394: 




mi 




0336 20F4 


395: 
396: 


1 


BRA 


LOADTYPEO 




397: 


1 


LOAD AND QUIT 




398: 


i 






0338 


399: 


L0ADTYPE3 




0338 8004 


400: 




BSR 


L0AD2AND3 


033A DE90 


401: 




LDK 


STARTAD 


033C 6E00 


402: 




JHP 


O.X BYE-BYE! 



HSL/iBOO i.3F: 


033C SSOS BOOT 


Jupiter II 


Boot Prograi lor SDOS 


01/16/83 12!0t!39| Page 11; 


Fora I 


COHMON ROUTINES 


jupiterboot.asa 










403; t 










404: i 


SET BYTES FROM DISK 






405: i 








033E 


406: L0AB2AND3 






033E BDil 


407: 


BSF) 


BETWQRD 




0340 978E 


408! 


STAA 


LQADADDRESS 




0342 D78F 


409: 


STAB 


L0ADADDRES8+1 




0344 8B5B 


410: 


BSR 


BETKORD ■ 




0346 978C 


411: 


STAA 


COUNT 




0348 D7SD 


412: 


STAB 


CQUST+i 




034A 


413: L0ftD2ftND3T 






034ft BESC 


414: . 


m 


COUNT 




034C 273C 


415: 
416: t 


BEO 


L0AD2ftND3RTS 


B/ NOT DONE 




417: * 


PROCESS TYPE 2 Oft 3 RECORD CONTENTS 




418; » 








e34£ 


419: L0AD2ANB3L 


m i 




034E DE92 


420: 


LDX 


DISKBUFFERPOINTER IS DISK BUFFER EtIPTY ? 


0350 8C0F80 


421: 


CPX 


SDISKBUFFEREND ... ? 


0353 2625 


422: 


BNE 


L06D2ftND3Ll 


8/ NO, SET A BYTE FROH THE BUFFER 


0355 %8C 


423: 


LDAA 


COUNT YES, 


iiT LEAST A SECTOR'S WTH OF BYTES... 


0357 1)680 


424: 


LDAB 


COUNT+1 LEFT 


IN THIS LOAD RECORD ? 


0359 C080 


425: 


SUBB 


INBPS&JFF 


...? 


035B 8200 


426: 


SBCA 


#NBPS/256 


..."? 


035!) 2517 


427: 


BCS 


LQAD2ftND3L2 


B/ NOPE, PROCESS BYTES THE HARD WAY 


035F 978C 


428: 


STAA 


COUNT YES, 


ADJUST COUNT AND ADDRESS 


0361 S78D 


429: 


STAB 


COUNT+1 




0363 DE8E 


430; 


LBK 


■ LOADADDRESS 


INHERE TO READ THE SECTOR 


0365 96SE 


431: 


LDAA 


LOADADDRESS 


ADJUST LOAD ADDRESS PAST SECTOR'S «0 


0367 D68F 


432: 


LDAB 


LOADADDRESS+1 




0369 CB80 


433; 


ADSB 


INBPS&IFF 




036B 8900 


434: 


ADCft 


INBPS/256 




036D 978E 


435: 


STAA 


LOADADDRESS 




036F B78F 


436: 


STftB 


LOftDADDRESS+1 




0371 BDOICB 


437: 


JSR 


REASNEXTLSN 


80 DO OPTIMHED LOAD RECORD TRANSFER 


0374 20S4 


438: 
439: 


BRA 


L.QADZAND3T 


CHECK FOR DONE 


0376 


440: L0AD2AND3L2 


ESU * 




0376 8B1A 


441: 


BSR 


SETBYTEO 




0378 2002 


442: 
443: 


BRA 


L0AD2AND3L1A 




037ft 


444: L0fiD2ftND3Ll 


EQU i 




037ft 8D1F 


445: 


BSR. 


SETBVTEl , 




037C 


446: L0AI)2AMD3L1A 






037C DE8E 


447: 


LDX 


LOADADDRESS 




037E ft700 


448: 


STAA 


0,X 




0380 08 


449: 


INX 






0381 DF8E 


450: 


STX 


LOADADDRESS ' 




0383 DE8C 


451: 


LDX 


COUNT 




0385 09 


452: 


DEX 






0336 DF8C 


453: 


STX 


COUNT 




0388 26C4 


454: 


BNE 


LQAD2ftrJD3L 


KpRE TO 60 


038A 39 ■ 


455: L0AB2AS83RTS 


RTS 






456: i 










457: i 


SET A BYTE 





llftL/6800 1.3F: 038A SDOS BOOT 
Oi/li/83 12s01:39; Page 12; ForiB 1 
jupitsrboQt.asd! 

458! « 

038B DE92 459: SETBYTE LSX 

038D 8C0F80 4^! CF'K 

0390 2609 461 ! BNE 

0392 462! 6ETBYTE0 

0392 CEOFOO 463! LDX 

0395 EDOICB 464: JSR 

0398 CEOFOO 465: LBX 

039B 466: GETBYTEl 

039B ft600 467: LDAA 

039B 08 468: IHi 

039E DF92 469: SIX 

03A0 39 470: RTS 

03ftl 8DE8 471: GET«DRD' BSR 
03A3 36 472: PSHA 

03ft4 8I}E5 473: BSR 
03A6 16 474: TAB 

03A7 32 475: PULA 
03A8 39 476: RTS 

0100 477: END 



ilupiter 11 Boot Program for SDOS 
COHHQN ROUTINES , 



DISKBUFFERPOINTER 

SDISKBUFFEREND 

SETBYTE 1 B/ BUFFER NOT. EHPTY 

«DISKBUFFER WHERE TO READ 
READNEXTLSN 

»DISK3UFFER 

DISKBUFFERPOINTER 

SETBYTE 

SETBYTE 



BOOT 



mil mo 1.3F! 03fi8 SDOS BOOT 
01/16/83 12i0l!39; Page 13; Foris 1 
jupiterboDt.asiii 
Syibols Sorted by Naise! 



Jupiter il Boot Prograu for 
Syffibols Sorted by Name 



B00T!i1APALE/0016 
COiiHT/OOBC BEST/OOSi 

FCOPY/0283 



BQOT/OIOO 

COPYBYTES/027B 

DISKBUFFERPOINTER/0092 

FDI77iDHAPft6E/FFA2 

FD1771SECT0R/FFfl6 

IBHSECT0RPTR1/015E 

K32I1QDNSPT/00B5 

K»ftP5/0IF7 KHAPi/OlFC 

L0AB2ANKL1A/037C ^ 

lOADiTYPEO/OOOO 

L0ADADDRESS/008E 

LSNTOPSNHftPENC/OOBO 

11AP3/0195 !1AP4/0iAl 

READiSECTOREVERYOTHER/025F 

REABFRQilByFFERPQOL/0242 

REASliITHIiyTRACK/014i 

SECTOR/OOBft SECTOROQFFSET/OiOO 

TRACKBUF/IOOO «fi!TSEEK.D0ME/0218 



BOOTjNSPC/OOH JBOOT;SIZE/0040 BUILDSPIRAL/02C3 
DISKBUFFER/OFOO DISKBUFFEREND/0F80 

FD177iCHDSTS/FFA4 *FDi771CURTRK/FFA5 



CNT/0084 



«FD1771DISK/FFA0 



FD1771DRVSEL/FFA3 
8ETAD/0249 8ETBYTE/038B 
IBHSECTQRPTR2/0160 
K4i10DNSPT/00B2 K8H0DMSPT/00B3 
IL0AD/02E3 L0AD2ANB3/033E 
L0AB2ANI)3L2/0376 
LOABilYPEl/OOOl 

LQABNEn/03i4 LQA&TYPE0/032C 
1116800/0001 tH6801/0000 
H0DNSPTA/02B9 M0DNSPTAL/02BA 
READ2SECT0RSEVERY0THER/025D 
REAI)IBH8ITHINTRACK/0140 
REACWITHINTRACKASAIN/0i47 
SOURCE/0088 



FD177mEWTRK/FFA7 
6ETBYTE0/0392 SETBYTEi/039B 
Kl6H0DflSPT/00B4 
KHAPi/0iE3 KMAP2/01E8 
L0AD2AND3L/034E 
LDAD2A»D3RTS/038A 
L0ACiTYP,E2/0002 

LQADTYPE2/0312 L0ADTYPE3/0338 
M6809/0000 HAKEilAP/0180 
NBPS/0080 NSPT/OOIA 
READ4SECT0RSEVERY0THER/ 025B 
READNEXTLSM/OICB 
READS1THINTRACKCOPYLQQP/015D 
STACKBASE/OODE STARTAD/0090 



FD177IPIAB0SE/FFAi 
BETM0RD/O3A1 IBMSEC70R/0000 
KiHODNSPT/OOBO K211fflNSPT/00Bt 
KHAP3/0iED KHAP4/0iF2 
L0AD2AND3L1/037A 
L0AD2AND3T/O34A 

,L0Al}!TYPE3/0003 

LSN/0094 LSNTOPSNHAP/0096 

I1AP1/0189 HAP2/018C 

iPERSCI/0001 
REAI}8SECTORSEVERY0THER/0259 

JREADTARGET/0080 
READNITHINTRACKiiAnD0NE/0I4D 
TEMPX./0082 TRACK/0095 



11AL/6800 1.3F! 03ft8 SSOS BOOT 
01/li/B3 i2!01:39| Page 14; Form 1 
jupiterboDt.asi 
Sysibols Sorted by Value: 



Jupiter 11 Boot Prograa for SDOS 
Synbols Sorted by Value 



IBHSECTOR/0000 
tPERSCI/0001 
NSPT/OOIA 
SOURCE/0088 
LSN/0094 
K4HQDNSPT/00B2 
SECTQRODFFSET/0100 
READHITHINTRACKMITSOHE/OH!} 
HAKEHAP/OiBO HAPi/OlS? 
KWAP2/01E8 KI1ftP3/0iED 

READFR0I1BUFFERP0QL/0242 
READ2SECT0RSEVERY0THER/025D 
BliILDSPiRAL/02C3 
L0flD2AND3T/034A 
L0AI)2AND3L1A/037C 
CISKBUFFER/OFOO 
Fi)i771D'r1ftPA6E/FFA2 
FBi77iSECTQR/FFA6 



LDADiTYPEO/OOOO 
LOADJTYPE2/0002 
*BDOT! SIZE/0040 NBPS/0080 
SECT0R/008A CQUNT/OOBC 
TRACK/0095 
K8H0MSPT/00B3 



IH6801/0000 H6809/0000 

L0AD!TYPE3/0D03 ' 
JREASTARGET/OOSO 

L0ADADBRESS/008E 



L0AD:TYPE1/0001 
BOOTsNSPC/OOU 
TEHPX/00B2 
STARTAD/0090 



IH6800/0001 
BOOTsMAPALG/0016 
CNT/0084 DEST/0086 

DISKBUFFERPOINTER/0092 



I1AP4/01A1 
KHAPi/OlFC 



LSNTQPSNHAP/0096 
K16110DNSPT/00B4 
READIBHWITHINTRACK/0140 
READ»ITHINTRACKC0PYLQOP/0i5B 
I1AP2/01SC MAP3/0i95 

KHAP4/01F2 K«AP5/01F7 

GETAD/0249 READ8SECT0RSEVERY0THER/0259 , 

READtSECTDREVERY0THER/025F C0PYBYTES/027B 

iLQAD/02E3 10ADTYPE2/0312 L0AI>NEXT/0314 

L0AD2ANB3L/034E 
IQAD2AND3RTS/038A 
SISKBUFFEREND/0F80 
FD1771DRVSEL/FFA3 
FDi771NEWTRK/FFA7 



KIMODNSPT/OOBO LSNTflPSNHAPEND/OOBO i(2«0DNSPT/00Bl 

K32M0DKSPT/00B5 STACKBASE/OODE BOQT/0100 

READWiTHiNTRACK/014i REftDSITHINTRACKAGAIN/0147 

IBHSECT0RPTR1/015E . IBHSECTQRPTR2/0160 



READMEXTLSS/OICB KHAPl/0tE3 

HAITSEEKDONE/0218 

REAB4SECT0RSEVERYQTHER/025B 

FC0PY/02e3 H0&NSPTA/02B9 «0DNSPTAL/02BA 

L0ADTYPE0/032C LQADTYPE3/0338 L0AI)2AHD3/033E 
L0AD2AKD3L2/0376 L0AD2AND3Li/037A 

GETBYTE/OSaB GETBYTEO/0392 GETBYTE1/039B GETWORD/OSAl 
TRACK.BUF/1000 JFD1771DISK/FFA0 FB1771PIAD0NE/FFA1 

FDi771CHDSTS/FFA4 IFD177iCyRTRK/FFA5 



95 Symbols. 



HAL/6800 1.3F! 03A8 SDOS BOOT Jupiter II Boot Prograin for SDQS 
01/16/83 12;01:39; Page 15; Fom 1 Sysbols Sorted by Value 
jupiterboot.assi 



ttt Hq Errors. 



